
% ============================================
% |        WEIGHT ESTIMATION  TOOL           |
% |											 |
% |               Engines                    |
% |											 |
% ============================================

function [W_eng] = WET_Torenbeek_Engine(TypeEngine, T_rev, N_eng, W_engine, P_to)
% 
%     W_eng = N_eng * Weng;
%     
switch T_rev % Trust Reversers
    case 0 % without thrust reversers
        k_thr=1;
    case 1 % with thrust reversers
        k_thr=1.18;
end

switch TypeEngine % Engine type
    case 0 % for propeller driven airplanes
       
        switch N_eng % Number of engines
            
           case 1 % for single engine tractor installations
                k_pg=1.16;
                W_eng=k_pg*N_eng*(W_engine+.24*P_to);
                
           case 2 % for multi-engine installations
                k_pg=1.35;
                W_eng=k_pg*N_eng*(W_engine+.24*P_to);
         
       end
    case 1 % for jet airplanes
         k_pg=1.40; % for airplanes with buried engines ??? podded engine
         W_eng=k_pg*k_thr*N_eng*W_engine;
      
end
end